home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00259.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  986 b   |  36 lines
  1. on exitFrame
  2.   global ppl, mnv, objc, foes, pwr, advance, psyprop, shandlir, soundspath, heart
  3.   psyprop = 0
  4.   advance = 13
  5.   puppetSprite(1, 1)
  6.   ppl = [10, 11, 12, 13]
  7.   mnv = [0, 0, 0, 0]
  8.   ccc = getAt(pwr, 1)
  9.   pwr = [ccc, 75, 75, 75]
  10.   objc = ["jmpdef", EMPTY, EMPTY]
  11.   set the keyUpScript to "psyreg"
  12.   set the keyDownScript to "psyregb"
  13.   repeat with i = 10 to 13
  14.     sprite(i).visible = 1
  15.     set the constraint of sprite i to 39
  16.     puppetSprite(i, 1)
  17.   end repeat
  18.   sound playFile 1, soundspath & "283"
  19.   set the locH of sprite 10 to 20
  20.   set the locV of sprite 10 to 400
  21.   sprite(41).visible = 0
  22.   sprite(4).visible = 1
  23.   puppetSprite(4, 0)
  24.   foes = [76, 103, 261]
  25.   set the locH of sprite 11 to -10
  26.   set the locV of sprite 11 to 430
  27.   set the locH of sprite 12 to -70
  28.   set the locV of sprite 12 to 400
  29.   set the locH of sprite 13 to 550
  30.   set the locV of sprite 13 to 550
  31.   puppetSprite(31, 0)
  32.   shandlir = 0
  33.   heart = 9
  34.   set the locH of sprite 5 to 10 + random(620)
  35. end
  36.